From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 29 Jun 2002 19:52:02 +0000 (+0000)
Subject: (store_mode_line_string): Lisp_Object/int mixup.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31958
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bfe27e3d92edc150dcb765902521acdc7f618fe5;p=emacs.git

(store_mode_line_string): Lisp_Object/int mixup.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index afcce0b7b9f..066f4fa0027 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -14104,7 +14104,7 @@ static int store_mode_line_string (string, lisp_string, copy_string, field_width
     }
   else 
     {
-      len = Flength (lisp_string);
+      len = XFASTINT (Flength (lisp_string));
       if (precision > 0 && len > precision)
 	{
 	  len = precision;